home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 96
/
Tiger_Disk_096_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_87
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
642b
|
13 lines
1 printchr$(147);:poke53280,.:poke53281,.:forz=5to8:fors=zto15:poke53265,80
5 m=54272:pokem+24,15:pokem+5,204:pokem+4,21:pokem+6,34:pokem+4,49:poke646,s
11 print,:poke646,z :poke53283,z+s
13 :poke53283,peek(53284)
16 poke646,s*z:print" "
19 poke214,z:sys58640:poke53284,peek(53282)andz:pokem+1,z*(s/(s-1)):pokem+4,20
22 poke214,s:sys58732:fort=1to21step.3:next:print;"[160] [160] [160] [160] [160] [160] [160] ende [157]";
25 next:next:poke56325,.:print"[147] "
26 fori=5to6:pokem+24,15:pokem+4,129::pokem+4,205:poke646,i:print"[157][157][157][157][157][157][157][157][157][157][157][157][145][145][145]",
27 print"[147]************** e n d e [146] **************":nexti:poke56325,.
28 print"[153]>lukian<";:
29 pokem+4,129:poke56325,55:pokem+1,34: pokem+4,128:sys2048